home *** CD-ROM | disk | FTP | other *** search
/ Buffalo Sabres 2001-2002 Promotional CD / Sabres.iso / pc / pbios.dxr / 00004_Button Script.ls < prev    next >
Encoding:
Text File  |  2001-09-05  |  1.8 KB  |  63 lines
  1. property pSp, pMouseOver, pMouseDown, pMouseUp, pRolloverYN, pRolloverSound, pMouseDownSound, pRollSnd, pDownSnd, pMouseUpOutside
  2.  
  3. on getPropertyDescriptionList
  4.   d = [:]
  5.   addProp(d, #pMouseOver, [#default: "roll", #format: #string, #comment: "Second name of member rollover"])
  6.   addProp(d, #pMouseDown, [#default: "dn", #format: #string, #comment: "Second name of meber for down"])
  7.   addProp(d, #pMouseUpOutside, [#default: "reg", #format: #string, #comment: "Second name of meber for up outside"])
  8.   addProp(d, #pMouseUp, [#default: "reg", #format: #string, #comment: "Second word of mouse up"])
  9.   addProp(d, #pRolloverYN, [#default: 1, #format: #boolean, #comment: "Do you want a rollover?"])
  10.   addProp(d, #pRolloverSound, [#default: 0, #format: #boolean, #comment: "Do you want a sound?"])
  11.   addProp(d, #pMouseDownSound, [#default: 0, #format: #boolean, #comment: "Dou you want a mouse down sound?"])
  12.   addProp(d, #pRollSnd, [#default: "name", #format: #string, #comment: "put in the name of roll sound"])
  13.   addProp(d, #pDownSnd, [#default: "name", #format: #string, #comment: "put in down sound"])
  14.   return d
  15. end
  16.  
  17. on beginSprite me
  18.   pSp = me.spriteNum
  19. end
  20.  
  21. on mouseUp
  22.   button(pMouseUp)
  23. end
  24.  
  25. on mouseDown
  26.   button(pMouseDown)
  27. end
  28.  
  29. on mouseEnter
  30.   if pRolloverYN then
  31.     button(pMouseOver)
  32.     if pRolloverSound then
  33.       puppetSound(1, pRolloverSound)
  34.     end if
  35.   end if
  36. end
  37.  
  38. on mouseLeave
  39.   if pRolloverYN then
  40.     button(pMouseUp)
  41.     if pMouseDownSound then
  42.       puppetSound(1, pMouseDownSound)
  43.     end if
  44.   end if
  45. end
  46.  
  47. on mouseUpOutSide
  48.   button(pMouseUp)
  49. end
  50.  
  51. on button type
  52.   a = the memberNum of sprite pSp
  53.   b = member(a).name
  54.   c = word 1 of b
  55.   newBut = c && type
  56.   set the memberNum of sprite pSp to member(newBut)
  57. end
  58.  
  59. on getBehaviorDescription
  60.   description = "this is the button script with sounds,rollovers, shit like that"
  61.   return description
  62. end
  63.